home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / RAWRPT.PRG < prev    next >
Text File  |  1980-01-01  |  2KB  |  57 lines
  1. *
  2. * RAWRPT
  3. * INVENTORY LISTING FROM RAWINV.DBF
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. SET STATUS OFF
  7. CLEAR
  8. CLEAR ALL
  9. SET TALK OFF
  10. SET BELL OFF
  11. STORE SPACE(80) TO BLANK
  12. @ 1,22 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  13. @ 3,16 SAY ">> Raw Materials Inventory System File Listing <<"
  14. @ 5,29 SAY "Today's Date: "
  15. ?? DATE()
  16. STORE "          " TO STKST
  17. STORE "zzzzzzzzzz" TO STKEND
  18. STORE "RAWINV  " TO FILENAME
  19. STORE "RSTOCKNO" TO INDEX
  20. STORE "RAWLIST " TO REPORT
  21. @ 9,1 SAY "Beginning STOCK NUMBER to Include in Report " GET STKST
  22. @ 11,1 SAY "Ending STOCK NUMBER to Include in Report    " GET STKEND
  23. @ 13,1 SAY "Run Report From The Following FILE " GET FILENAME
  24. @ 15,1 SAY "Ordered by the Following INDEX     " GET INDEX
  25. @ 17,1 SAY "Using the REPORT FORMAT Named      " GET REPORT
  26. STORE " " TO DUMMY
  27. @ 21,1 SAY ;
  28. "REPLACE VALUES AT CURSOR, OR JUST PRESS ENTER IF CURRENT REPORT DESCRIPTION"
  29. @ 22,1 SAY ;
  30. "IS O.K.  'M' HERE RETURNS TO MENU, ANY OTHER KEY STARTS THE REPORT =>";
  31. GET DUMMY
  32. READ
  33. STORE UPPER(DUMMY) TO DUMMY
  34. IF DUMMY="M"
  35.    RETURN
  36. ENDIF
  37. * OPEN FILE USING INDEX SPECIFIED ABOVE, OR NO INDEX IF IT IS BLANK
  38. IF INDEX="  "
  39.    USE &FILENAME
  40. ELSE
  41.    USE &FILENAME INDEX &INDEX
  42. ENDIF
  43. * RUN REPORT SELECTING RECORDS AS SPECIFIED BY DEFAULTS OR SCREEN INPUTS
  44. SET CONSOLE OFF
  45. SET PRINT ON
  46. * FOLLOWING PRINT STATEMENTS PUT EPSON OR IBM PRINTERS IN NARROW PRINT MODE
  47. * FOR A REPORT WHICH WON'T FIT INTO 80 CHARACTERS
  48. ?? CHR(27)+"F"
  49. ?? CHR(15)
  50. STORE "ALL INVENTORY, ITEMS "+STKST+" TO "+STKEND TO HEAD
  51. REPORT FORM &REPORT FOR STOCKNO>= STKST.AND.STOCKNO<= STKEND TO PRINT
  52. ?? CHR(18)
  53. SET PRINT OFF
  54. SET CONSOLE ON
  55. CLEAR
  56. RETURN
  57.